// .txt

beginzonescript;

variables;

short crime_tolerance = 5;
short last_abil;
short i;

body;

beginstate INIT_STATE;
	if (gf(17,18) == 0)
		sf(17,3,0);
	sf(17,8,0);
	
	set_name(8,"Bryn");
	set_boss_level(8,1);
	
	set_name(9,"Labaton");
	set_name(10,"Celaa");
	set_level(10,15);
	set_boss_level(10,1);

	set_level(16,15);
	set_level(17,15);
	set_boss_level(16,1);
	set_boss_level(17,1);

	set_courage(26,0);
	set_courage(27,0);
	set_courage(28,0);
	set_courage(29,0);

		
	set_level(45,16);
	set_level(46,16);
	set_level(47,16);
	set_level(48,16);
	set_level(49,16);

//	add_range_to_group(first,last,whichg);

	add_range_to_group(50,56,1);
	add_range_to_group(57,63,2);
	add_range_to_group(64,70,3);
	if (gf(100,13) < 2) {
		erase_char(1001);
		erase_char(1002);
		erase_char(1003);
		}

	if (gf(100,13) == 2) {
		print_str_color("The escaped shredbugs passed through here when fleeing.",2);
		print_str_color("The results were grim.",2);
		
		erase_char(8);
		erase_char(9);
		erase_char(10);
		erase_char(26);
		erase_char(27);
		erase_char(28);
		erase_char(29);

		erase_char(45);
		erase_char(46);
		erase_char(47);
		erase_char(48);
		erase_char(49);
		}
		else if (get_sdf(100,5) > 2) {
			print_str_color("News of your betrayal of Ghaldring and the drakons has reached here.",2);
			make_zone_hostile();
			}
			else if (get_sdf(17,4) > 0) {
				make_zone_hostile();
				}
				else {
					print_str_color("This is a friendly settlement. You are able to rest.",2);
					revive_party();
					}

	last_abil = get_current_tick();
	
	set_crime_tolerance(crime_tolerance);
	break;

beginstate EXIT_STATE;

break;

beginstate START_STATE;
	// clear zone?
	//if ((zone_clear(ME) == FALSE) && (get_flag(,) > 0)) {
		//print_str_color("",2);
		//clear_zone(ME);	
		//}
		
	if ((get_crime_level() >= crime_tolerance) && (get_sdf(17,4) == 0)) {
		make_zone_hostile();
		set_flag(17,4,1);
		}

	if (gf(17,4) == 0) {
		if (get_ran(1,0,100) < 10)
			give_char_text_bubble(8,"We will watch you.");
		if (get_ran(1,0,100) < 10)
			give_char_text_bubble(8,"You are not welcome.");
		if (get_ran(1,0,100) < 10)
			give_char_text_bubble(8,"Please go soon.");
		if (get_ran(1,0,100) < 10)
			give_char_text_bubble(9,"I'm a junk dealer.");
		if (get_ran(1,0,100) < 10)
			give_char_text_bubble(9,"Nothing odd here.");
		if (get_ran(1,0,100) < 10)
			give_char_text_bubble(9,"Ahhh ... this ache.");
		if (get_ran(1,0,100) < 10)
			give_char_text_bubble(10,"Stay out of big place.");
		if (get_ran(1,0,100) < 10)
			give_char_text_bubble(10,"Don't touch things.");
		if (get_ran(1,0,100) < 10)
			give_char_text_bubble(10,"Where you from?");
		if (get_ran(1,0,100) < 10)
			give_char_text_bubble(10,"I talk to you.");

		}
	
	if (tick_difference(last_abil,get_current_tick()) > 0) {
		if ((gf(17,8) > 0) && (gf(17,8) < 100))
			inc_flag(17,8,1);
		last_abil = get_current_tick();
		}
break;

beginstate 10;
	set_terrain_string_range("Some old, rusty Shaper equipment has been scavenged and left back here.",3);
break;

//	print_str("");
//	set_terrain_string_range(".",3);
//	set_terrain_string_range("The sign says - .",3);
